home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / database / cardx135.arj / ROLODEX.PRT < prev    next >
Text File  |  1993-11-19  |  2KB  |  24 lines
  1.  ;_______________________ Fan fold two accross Labels _________________________ 
  2.                                          ;LaserJet III printer commands.        
  3.  #27 69#                                 ;Reset printer.                        
  4.  #27 &l2A#                               ;Letter size paper.                    
  5.  #27 &l6D#                               ;60 lines per inch.                    
  6.  #27 (s0P#                               ;Fixed spacing.                        
  7.  #27 (s10H#                              ;10 CPI.                               
  8.  #27 &l2E#                               ;Top margin = 2.                       
  9.  ;Continuous label forms.                                                       
  10.  ;Do two across on a page at the Column numbers.                                
  11.  ;Last number is Right margin.                                                  
  12.  ;DO(Continuous feed, Column #10, Column #40, Right margin)                     
  13.  ;DO(             00,         10,         40,           79)                     
  14.  DO(04, 14, 79)                          ;Start of DO loop.                     
  15.    02 FNAME ' ' LNAME                    ;First name, space and Last name.      
  16.    03 ADDRESS                            ;P. O. Box.                            
  17.    04 STREET                             ;Street address.                       
  18.    05 TOWN ', ' STATE '.' ZIP            ;City, State and Zip code.             
  19.    06 PHONE1 '  ' PHONE2 '  '  PHONE3                                           
  20.    07 ADINFO9                                                                   
  21.    16 '---------------------- ' BIRTH ' ----------------------'                 
  22.  ENDDO                                   ;End of DO loop.                       
  23.  #27 69#                                 ;Reset printer.                        
  24.